BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Bus/H-L/Invoicer.cpt/Addresser

Text File | 1987-04-14 | 3.7 KB | 205 lines | [TEXT/MSBA]

  CodeChk:
    CLS
    TEXTSIZE (24):TEXTFACE(5)
    PRINT:PRINT SPC(11);"ADDRESS …"
    TEXTSIZE(12):TEXTFACE(0)
    INPUT"Customer Code ('help' for code list, '' '' for other...): ",CO$
    IF CO$="help" OR CO$ = "h" THEN CLS: GOTO ListCodes
    IF CO$="quit" OR CO$="q" THEN CLS:LOAD "Open Me First",R
    IF CO$=""THEN GetInfo
    IF LEN(CO$)<>2 THEN RUN
GOSUB Code

  GetInfo:
      CLS
     TEXTSIZE (24):TEXTFACE(5)
     PRINT:PRINT SPC(11);"ADDRESS …"
     TEXTSIZE(12):TEXTFACE(0)
     PRINT"Name:";
     TEXTFACE(1):PRINT TAB(15);
     LINE INPUT"",CN$
     TEXTFACE(0)
     PRINT"Street Address:";
     TEXTFACE(1):PRINT TAB(15);
     LINE INPUT"",AD1$
     TEXTFACE(0)
     PRINT"City:";
     TEXTFACE(1):PRINT TAB(15);
     LINE INPUT"",AD2$
     TEXTFACE(0)
     PRINT"State:";
     TEXTFACE(1):PRINT TAB(15);
     LINE INPUT"",AD3$
     TEXTFACE(0)
     PRINT"Zip Code:";
     TEXTFACE(1):PRINT TAB(15);
     INPUT"",zp$
     TEXTFACE (0)


  SecScreen:
CLS
  Address:
     WINDOW 3,"",(25,50)-(476,280),3
     TEXTFACE (1)
     PRINT:PRINT
     TEXTSIZE (14)
     PRINT:PRINT
     PRINT SPC(1);CN$
     PRINT SPC(1);AD1$
     PRINT SPC(1);AD2$;", ";AD3$;"  ";
     PRINT zp$
     TEXTSIZE (12)

   Choyce2:
       WINDOW 4,"",(25,285)-(476,330),-3
       BUTTON 1,1,"print",(55,10)-(130,35),1
       BUTTON 2,1,"new",(192,10)-(267,35),1
       BUTTON 3,1,"quit",(329,10)-(404,35),1
       WHILE DIALOG(0)<>1:WEND
       ButtonPushed = DIALOG(1)
       IF ButtonPushed=1 THEN PrntWarning
       IF ButtonPushed =2 THEN  WINDOW CLOSE 3:WINDOW CLOSE 4:RUN
       IF ButtonPushed =3 THEN WINDOW CLOSE 3:WINDOW CLOSE 4:CLS:LOAD "Open Me First",R

  PrntWarning:
    WINDOW 2,"",(125,190)-(385,270),-2
    TEXTFACE(1)
    PRINT"Please make sure printer is turned"
    PRINT"on and loaded with paper."
    BUTTON 1,1,"OK",(105,45)-(165,65),1
    BUTTON 2,1,"cancel",(185,45)-(245,65),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed=1 THEN WINDOW CLOSE 2:WINDOW OUTPUT 4
    IF ButtonPushed=2 THEN WINDOW CLOSE 2:WINDOW OUTPUT 4:GOTO Choyce2

     FOR mp=1 TO 6
     LPRINT CHR$(10)
     NEXT
     LPRINT TAB(8); CN$
     LPRINT TAB(8); AD1$
     LPRINT TAB(8); AD2$;", ";AD3$;"  ";
     LPRINT zp$

    FOR mp= 1 TO 2
    LPRINT CHR$(10)
    NEXT
    FOR dl=1 TO 80
    LPRINT"-";
    NEXT
    LPRINT" "
    WINDOW OUTPUT 4
    GOTO Choyce2

  Code:
    CLOSE #1
    OPEN "Customers A" FOR INPUT AS #1
  ReedIt:
    IF EOF(1) THEN CLOSE #1: CLS:TEXTFACE(1):PRINT:PRINT"This customer not on file…":FOR m = 1 TO 2500:NEXT:CLS:RUN
    INPUT #1,CD$,CN$,AD1$,AD2$,AD3$,zp$,ts$
    IF CD$=CO$ THEN CLOSE #1:GOTO SecScreen
    GOTO ReedIt
  ListCodes:
CLS
  Lst:
     OPEN "Customers B" FOR INPUT AS #1
     WINDOW 2,"",(25,50)-(476,280),3
  OpFile:
     TEXTFACE(1)
     IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
     INPUT #1,CD$,CN$,ts$
     PRINT CD$;
     PRINT" - ";CN$
     GOTO OpFile

  NewWndw:
 WINDOW 3,"",(25,285)-(476,330),-3
    BUTTON 1,1,"again",(55,10)-(130,35),1
    BUTTON 2,1,"enter info",(192,10)-(267,35),1
    BUTTON 3,1,"quit",(329,10)-(404,35),1
      WHILE DIALOG(0)<>1:WEND
      ButtonPushed = DIALOG(1)
      IF ButtonPushed = 1 THEN Lst
      IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
      IF ButtonPushed  = 3 THEN LOAD "Open Me First",R

  YourChoice:
    WINDOW 3,"",(25,285)-(476,330),-3
    BUTTON 1,1,"again",(55,10)-(130,35),1
    BUTTON 2,1,"print",(192,10)-(267,35),1
    BUTTON 3,1,"quit",(329,10)-(404,35),1
    WHILE DIALOG(0)<>1:WEND
    ButtonPushed =DIALOG(1)
    IF ButtonPushed =1 THEN Strt
    IF ButtonPushed =2 THEN PrntWarning
    IF ButtonPushed =3 THEN STOP